home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / emul / skkit2 / stkstufr / stkstufr.bts next >
Encoding:
Text File  |  1992-11-22  |  505 b   |  18 lines

  1. // This script checks for the presence of a executing copy 
  2. // of STKSTUFR (STalker STuffr).  If one is found, it sends a message
  3. // to STKSTUFR that the STalker3 session has finished.
  4.  
  5. function main()
  6.      int       stuffr_id;
  7.  
  8.      stuffr_id = appl_find("STKSTUFR");
  9.  
  10.      if stuffr_id == -1 then
  11.           puts("STalker STuffr is not running.\r\n");
  12.      else
  13.           appl_write(stuffr_id,2323,0,0,0,0,0);
  14.      endif
  15. // 2323 is our magic word that the script is ending.
  16.  
  17. endfunction
  18.